home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / hirescol.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-07-03  |  512 b   |  22 lines
  1. 110  SCREEN 2:WIDTH 80:KEY OFF:CLS
  2. 120  OUT 985,0
  3. 130  OUT &H3D8,10
  4. 135  VIEW(1,1)-(638,99),,1
  5. 140  'LOCATE 11,2
  6. 150  'PRINT"0000 0001 0010 0011 0100 0101 0110 0111 ";
  7. 160  'PRINT"1000 1001 1010 1011 1100 1101 1110 1111"
  8. 170  FOR COLR=0 TO 15
  9. 180  FOR N=0 TO 9
  10. 190  X=(40*COLR)+(4*N)
  11. 200  IF COLR>7 THEN LINE(X,0)-(X,150)
  12. 210  IF COLR AND 4 THEN LINE(X+1,0)-(X+1,150)
  13. 220  IF COLR AND 2 THEN LINE(X+2,0)-(X+2,150)
  14. 230  IF COLR AND 1 THEN LINE(X+3,0)-(X+3,150)
  15. 240  NEXT:NEXT
  16. 250  VIEW(1,100)-(638,198),,1
  17. 260  FOR STP=1 TO 15
  18. 270  FOR I=0 TO 640 STEP STP
  19. 280  LINE(I,0)-(I,199)
  20. 290  NEXT I
  21. 300  A$=INPUT$(1):CLS:NEXT STP
  22.